home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0292.ZIP / GENEPROG.ARC / FINDEM.PRG < prev    next >
Text File  |  1985-12-21  |  2KB  |  67 lines
  1. * SUBROUTINE FINDEM    5/2/1985                            FINDEM      
  2. *
  3. SET DEVICE TO SCREEN
  4. ENABLE=" "
  5. DO WHILE .NOT.ENABLE="S"
  6.   USE GENE INDEX FNINDX
  7.   CLEAR
  8.   @ 10,5 SAY "ENTER EXTRA BLANK IF THERE IS NO MIDDLE NAME"
  9.   @ 12,5 SAY "    "
  10.   ACCEPT "    ENTER FIRST, MIDDLE AND LAST NAME: " TO FULLNAME
  11.   FIND &FULLNAME
  12.   CLEAR
  13.   @ 1,5  SAY "LAST          " GET LAST
  14.   @ 1,32 SAY "FIRST  "        GET FIRST
  15.   @ 1,50 SAY "MIDDLE "        GET MIDDLE
  16.   @ 1,70 SAY "NUM "           GET NUM  
  17.   @ 2,5  SAY "SORT NAME     " GET SORTNAME
  18.   @ 2,45 SAY "FULL NAME "     GET FULNAME
  19.   @ 3,5  SAY "RESIDENCES    " GET RESIDENCES
  20.   @ 4,5  SAY "BORN          " GET DOB
  21.   @ 4,30 SAY "PLACE "         GET POB
  22.   @ 5,5  SAY "DIED          " GET DOD
  23.   @ 5,30 SAY "PLACE "         GET POD
  24.   @ 6,5  SAY "SPOUSE        " GET SPOUSE
  25.   @ 7,5  SAY "MARRIED       " GET DMAR
  26.   @ 7,30 SAY "PLACE "         GET PMAR
  27.   @ 8,5  SAY "MOTHER        " GET MOTHER
  28.   @ 9,5  SAY "FATHER        " GET FATHER
  29.   @ 10,5 SAY "CHILDREN  1&6 " GET CHILD1
  30.   @ 11,5 SAY "          2&7 " GET CHILD2
  31.   @ 12,5 SAY "          3&8 " GET CHILD3
  32.   @ 13,5 SAY "          4&9 " GET CHILD4
  33.   @ 14,5 SAY "          5&10" GET CHILD5
  34.   @ 15,5 SAY "SISTERS       " GET SISTERS
  35.   @ 16,5 SAY "BROTHERS      " GET BROTHERS
  36.   @ 17,5 SAY "OCCUPATION    " GET OCCUPATION
  37.   @ 18,5 SAY "CHART         " GET CHART
  38.   @ 18,30 SAY "DESCENDANT "   GET DESCENDANT
  39.   @ 20,5 SAY "CONTINUED     "
  40.   READ
  41.   CLEAR
  42.   @ 10,5 SAY "NOTES         " GET COMM1
  43.   @ 11,5 SAY "              " GET COMM2
  44.   @ 12,5 SAY "              " GET COMM3
  45.   @ 13,5 SAY "              " GET COMM4
  46.   @ 14,5 SAY "              " GET COMM5
  47.   @ 15,5 SAY "REFERENCES    " GET REFERENCE
  48.   @ 16,5 SAY "UPDATED       " GET UPDATE
  49.   READ
  50.   CLEAR
  51.   ACCEPT "     DO YOU WANT HARD COPY (Y OR N)? " TO QUES
  52.   IF QUES="Y"
  53.     DO ONEOUT
  54.   ENDIF
  55.   ENABLE=" "
  56.   @  5,5 SAY "ENTER S TO END REVIEW OR RETURN TO CONTINUE" GET ENABLE
  57.   READ
  58. ENDDO
  59. CLEAR GETS
  60. CLEAR
  61. USE GENE INDEX SNINDX
  62. RETURN
  63. *END OF SUBROUTINE
  64.  
  65.  
  66.  
  67.